home *** CD-ROM | disk | FTP | other *** search
/ PCBoard 15.1 Demo / PCBoard v15.1 DEMO - Clark Dev. Co (1994) - Disk 1 of 1.imd / PCBDISK.EXE / GEN / SCRIPT2.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-02-14  |  3.0 KB  |  145 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     String   TSTRING001(5)
  22.     String   TSTRING002(4)
  23.     String   STRING003
  24.     String   STRING004
  25.     String   STRING005
  26.     String   STRING006
  27.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     STRING003 = "Y"
  31.     TSTRING001(0) = " "
  32.     TSTRING002(1) = "  @X0E1. @X0FEvery call"
  33.     TSTRING002(2) = "  @X0E2. @X0FFrequently"
  34.     TSTRING002(3) = "  @X0E3. @X0FRarely    "
  35.     TSTRING002(4) = "  @X0E4. @X0FNot at all"
  36.     STRING004 = 4
  37.     STRING005 = 4
  38.     STRING006 = 4
  39.     INTEGER001 = 1
  40.     INTEGER002 = 72
  41.     STRING003 = YesChar()
  42.     PrintLn 
  43.     PrintLn "@X50▓▒░ @X5F   Message Bases   @X50 ░▒▓@X07"
  44.     Gosub LABEL001
  45.     InputStr "Which option best describes your use of the message bases on this system", STRING004, 10, 1, "1234", 2 + 128 + 256
  46.     STRING004 = Right(TSTRING002(STRING004), 10)
  47.     PrintLn 
  48.     PrintLn "@X50▓▒░ @X5F   File Areas   @X50 ░▒▓@X07"
  49.     Gosub LABEL001
  50.     InputStr "Which option best describes your use of the file areas on this system", STRING005, 10, 1, "1234", 2 + 128 + 256
  51.     STRING005 = Right(TSTRING002(STRING005), 10)
  52.     PrintLn 
  53.     PrintLn "@X50▓▒░  @X5F  Other Features  @X50  ░▒▓@X07"
  54.     Gosub LABEL001
  55.     InputStr "Which option best describes your use of the other features of this system", STRING006, 10, 1, "1234", 2 + 128 + 256
  56.     STRING006 = Right(TSTRING002(STRING006), 10)
  57.     Newlines 2
  58.     InputYN "Do you want to leave additional comments about this system", STRING003, 10
  59.     If (Upper(STRING003) == YesChar()) Then
  60.         Newlines 2
  61.         PrintLn "@X0B@X00You may enter @X0F5@XFF lines of @X0F", INTEGER002, "@XFF characters for your comments."
  62.         PrintLn "Press ENTER on a blank line to finish entering your comments."
  63.         PrintLn 
  64.         While ((INTEGER001 < 6) && (TSTRING001(INTEGER001 - 1) <> "")) Do
  65.             Print "@X0E", INTEGER001, ": "
  66.             InputStr "_", TSTRING001(INTEGER001), 3, INTEGER002, Mask_Ascii(), 512 + 256
  67.             INTEGER001 = INTEGER001 + 1
  68.         EndWhile
  69.     Endif
  70.     FPutLn 0, " "
  71.     FPutLn 0, "  Usage"
  72.     FPutLn 0, "  ----------------------------------------"
  73.     FPutLn 0, " "
  74.     FPutLn 0, "    Message base  : " + STRING004
  75.     FPutLn 0, "    File area     : " + STRING005
  76.     FPutLn 0, "    Other features: " + STRING006
  77.     FPutLn 0, " "
  78.     FPutLn 0, "  Comments"
  79.     FPutLn 0, "  -----------------------------------------"
  80.     FPutLn 0, "    " + TSTRING001(1)
  81.     FPutLn 0, "    " + TSTRING001(2)
  82.     FPutLn 0, "    " + TSTRING001(3)
  83.     FPutLn 0, "    " + TSTRING001(4)
  84.     FPutLn 0, "    " + TSTRING001(5)
  85.     FPutLn 0, " "
  86.     End
  87.     :LABEL001
  88.     PrintLn 
  89.     PrintLn TSTRING002(1)
  90.     PrintLn TSTRING002(2)
  91.     PrintLn TSTRING002(3)
  92.     PrintLn TSTRING002(4)
  93.     Return
  94.  
  95. ;------------------------------------------------------------------------------
  96. ;
  97. ; Usage report (before postprocessing)
  98. ;
  99. ; ■ Statements used :
  100. ;
  101. ;    1       End
  102. ;    3       Goto 
  103. ;    16      Let 
  104. ;    1       Print 
  105. ;    14      PrintLn 
  106. ;    2       If 
  107. ;    16      FPutLn 
  108. ;    4       InputStr 
  109. ;    1       InputYN 
  110. ;    3       Gosub 
  111. ;    1       Return
  112. ;    2       Newlines 
  113. ;
  114. ;
  115. ; ■ Functions used :
  116. ;
  117. ;    16      +
  118. ;    1       -
  119. ;    1       ==
  120. ;    1       <>
  121. ;    1       <
  122. ;    2       !
  123. ;    1       &&
  124. ;    1       Upper()
  125. ;    3       Right()
  126. ;    2       YesChar()
  127. ;    1       Mask_Ascii()
  128. ;
  129. ;------------------------------------------------------------------------------
  130. ;
  131. ; Analysis flags : No flag
  132. ;
  133. ;------------------------------------------------------------------------------
  134. ;
  135. ; Postprocessing report
  136. ;
  137. ;    0       For/Next
  138. ;    1       While/EndWhile
  139. ;    1       If/Then or If/Then/Else
  140. ;    0       Select Case
  141. ;
  142. ;------------------------------------------------------------------------------
  143. ;                 AEGiS Corp - Break the routines, code against the machines!
  144. ;------------------------------------------------------------------------------
  145.